home *** CD-ROM | disk | FTP | other *** search
/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / programming / amiga / muibuilder / mb / asm / include / libraries / mui_locale.i < prev    next >
Encoding:
Text File  |  1995-12-11  |  2.5 KB  |  144 lines
  1. ******************************************************************************
  2. *      MUI Locale Support Includes by Stefan Sommerfeld of ALiENDESiGN       *
  3. *                         last change on 11-Dec-95                           *
  4. ******************************************************************************
  5.  
  6.  
  7. SimpleButtonLoc MACRO
  8.     movem.l    a0/a2,-(a7)
  9.     GetMBString    \1
  10.     move.l    a7,a2
  11.     clr.l    -(a7)
  12.     cmv4    \4
  13.     cmv4    \3
  14.     cmv4    \2
  15.     cmv3    d0
  16.     move.l    #MUIO_Button,d0
  17.     move.l    a7,a0
  18.     CALLMUI    MUI_MakeObjectA
  19.     move.l    a2,a7
  20.     movem.l    (a7)+,a0/a2
  21.     ENDM
  22.  
  23. KeyButtonLoc MACRO
  24.     TextObject
  25.     ButtonFrame
  26.     MUIT    MUIA_Text_Contents
  27.     GetMBString    \1
  28.     MUIT2    d0
  29.     MUIT    MUIA_Text_PreParse,PreParse
  30.     MUIT    MUIA_Text_SetMax,FALSE
  31.     MUIT    MUIA_Text_HiChar,\2
  32.     MUIT    MUIA_ControlChar,\2
  33.     MUIT    MUIA_InputMode,MUIV_InputMode_RelVerify
  34.     MUIT    MUIA_Background,MUII_ButtonBack
  35.     Endi
  36.     ENDM
  37.  
  38. LabelLoc    MACRO
  39.     TextObject
  40.     MUIT    MUIA_Text_PreParse,PreParse2
  41.     MUIT    MUIA_Text_Contents
  42.     GetMBString    \1
  43.     MUIT2    d0
  44.     MUIT    MUIA_Weight,0
  45.     MUIT    MUIA_InnerLeft,0
  46.     MUIT    MUIA_InnerRight,0
  47.     Endi
  48.     ENDM
  49.  
  50. Label1Loc    MACRO
  51.     TextObject
  52.     ButtonFrame
  53.     MUIT    MUIA_Text_PreParse,PreParse2
  54.     MUIT    MUIA_Text_Contents
  55.     GetMBString    \1
  56.     MUIT2    d0
  57.     MUIT    MUIA_Weight,0
  58.     MUIT    MUIA_InnerLeft,0
  59.     MUIT    MUIA_InnerRight,0
  60.     MUIT    MUIA_FramePhantomHoriz,TRUE
  61.     Endi
  62.     ENDM
  63.  
  64. Label2Loc    MACRO
  65.     TextObject
  66.     StringFrame
  67.     MUIT    MUIA_Text_PreParse,PreParse2
  68.     MUIT    MUIA_Text_Contents
  69.     GetMBString    \1
  70.     MUIT2    d0
  71.     MUIT    MUIA_Weight,0
  72.     MUIT    MUIA_InnerLeft,0
  73.     MUIT    MUIA_InnerRight,0
  74.     MUIT    MUIA_FramePhantomHoriz,TRUE
  75.     Endi
  76.     ENDM
  77.  
  78. KeyLabelLoc MACRO
  79.     TextObject
  80.     MUIT    MUIA_Text_PreParse,PreParse2
  81.     MUIT    MUIA_Text_Contents
  82.     GetMBString    \1
  83.     MUIT2    d0
  84.     MUIT    MUIA_Weight,0
  85.     MUIT    MUIA_InnerLeft,0
  86.     MUIT    MUIA_InnerRight,0,
  87.     MUIT    MUIA_Text_HiChar,\2
  88.     Endi
  89.     ENDM
  90.  
  91. KeyLabel1Loc MACRO
  92.     TextObject
  93.     ButtonFrame
  94.     MUIT    MUIA_Text_PreParse,PreParse2
  95.     MUIT    MUIA_Text_Contents
  96.     GetMBString    \1
  97.     MUIT2    d0
  98.     MUIT    MUIA_Weight,0
  99.     MUIT    MUIA_InnerLeft,0
  100.     MUIT    MUIA_InnerRight,0
  101.     MUIT    MUIA_Text_HiChar,\2
  102.     MUIT    MUIA_FramePhantomHoriz,TRUE
  103.     Endi
  104.     ENDM
  105.  
  106. KeyLabel2Loc MACRO
  107.     TextObject
  108.     StringFrame
  109.     MUIT    MUIA_Text_PreParse,PreParse2
  110.     MUIT    MUIA_Text_Contents
  111.     GetMBString    \1
  112.     MUIT2    d0
  113.     MUIT    MUIA_Weight,0
  114.     MUIT    MUIA_InnerLeft,0
  115.     MUIT    MUIA_InnerRight,0
  116.     MUIT    MUIA_Text_HiChar,\2
  117.     MUIT    MUIA_FramePhantomHoriz,TRUE
  118.     Endi
  119.     ENDM
  120.  
  121.  
  122. GetMBString:    MACRO
  123.     move.l    a0,-(a7)
  124.     move.l    #\1,a0
  125.     jsr    GetString
  126.     move.l    (a7)+,a0
  127.     ENDM
  128.  
  129. GetMBStringTab:    MACRO
  130.     movem.l    a0/a1,-(a7)
  131.     lea    \1,a1
  132. GetMBStrTabLoop\@:
  133.     move.l    (a1),a0
  134.     movem.l    (a7)+,a0/a1
  135.     tst.l    (a1)
  136.     beq.s    EndGetMBStrTab\@
  137.     jsr    GetString
  138.     move.l    d0,(a1)+
  139.     bra.s    GetMBStrTabLoop\@
  140. EndGetMBStrTab\@:
  141.     ENDM
  142.  
  143.  
  144.